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A SSSSSSSS_ YY YY WN NN CCCCCCCC HH HH RRRRRRRR 000000 
AA AA SS YY YY NN NN CC HH HH RR RR 00 00 
AB AA SS Y YY NN 4 HH HH RR RR OO 
AA AA SS yYY YY NNNN NN CC HH HH RR RR OO 
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AA AA SS YY NN NN CC HH HH RR RR 00 00 
AA AA SSSSSSSS YY NN NN CCCCCCCC HH HH RR RR 000000 
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LL II ss 
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TITLE ‘Asynchronous service management’ 
DENT = *VOL-002" : 
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MODULE ASYNCHRON(% 


BEGIN 


' 
PEC S SESS E SETS TTT ETT TTT Terre Tec ice c cece ete citric ieee rit ici tic iti iii iii is 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
' DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE 19" MAY BE USED AND gh 
!* ONLY IN ACCORDANCE L N 


® 
a 
ty 
w 
® 
tt 
® 
*® 
i | T NOT "SOF TW R "OTHER 
iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 
*® 
* 
*® 
i 
* 
® 
‘it 
* 
* 
* 
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~ 
= 
w~ 
>rm 
> 4 
mo 
mn 
= 
= 
= 
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!® TRANSFERRED. 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. orepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


SOoOoOoCoooooooooooooooooooo 
pepe fofololelolololelelolololololololololololo!) 


ae 

; 4 

3 5 1 

; 6 1 

: 7 1 

; 8 1 

; 9 1 

; 1 

i : 

; i§ 1 

: 14 1 

; 15 1 

; 1 

: 17 1 

3 18 1 

; 1 

; 2 1 

7 oe 1 

; 1 

;- 2&2 2s 1 ise 

; 24 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
3 $2 § : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

Ps Hed 

: 7 1 !® 

H 4 if: 1 LAA 
; #2 Ong 1! 

; 2 00 1 

; 3 0031 1 !++ 

) - 0032 #1 i FACILITY: 

co oe 0033 1} Job controller. 

; 0034 1! 

: $2 0035 1 | ABSTRACT: 

; 6 0036 1! This module contains the routines that manage services that complete 
> oF 0037 1! asynchronously to the original request. Many such instances require 
3 Hs O08 ' communication with remote job controllers in a cluster. 

:; 40 0040 1 ! ENVIRONMENT: 

: 41 0041 1! VAX/VMS user and kernel mode. 

; 4g 00 1 fe- 

; € 0043 1! 

5 666 0044 1 ! AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 

3; «645 0045 1! 

5 0046 1 ! MODIFIED BY: 

: 47 0047 1! 

; 648 0048 1! V04-002 JAK0236 J A Krycka 14-Sep-1984 

3 4 iets ' } Collect more diagnostic information. 

3; «(SY 0051 1! v04-001 sAKOe eS J A Krycka 12-Sep-1984 

; 26 0026 1! Det ope air a corrupted incomplete services List in 
3 27 Oper ’ SCAN, INcOMPLe E_SERVICES. 

, S35 0055 1! VO3-011 JAKO224 cka 24-Aug-1984 

5 + 0056 1! In ENTER_REMOTE _REQUES set a flag if there is no doorbell lock 
» OF 0057 1! defined for the remote job controller (indicating that the 
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remote node is not in the cluster or the remote job controller 
does not have the queue file open). 


v03-010 KPLO003 P Lieberwirth + it 
Fix ALL bugs introduced in v03-008. 


v03-009 KPL0002 P bjeberwireh. 30-Jul-1984 
Sigh, fix bug in V03-008. When ag Ay ag predecessor, 
do not update predecessor pointer to be the deallocated 
record. (That took someone with the brain of a turnip.) 


v03-008 KPLO001 P Lieberwirth, 19-Jul-1984 
Rewrite predecessor before deallocating SRQ in routine 
SCAN_INCOMPLETE_SERVICES. This avoids corrupt ne the 
incomplete service List at the possible cost of losing 
a deallocated record and extra 10s. 


VO3-007 JAK0213 J_A Krycka 18-May-1984 
Continuation of V03-006. Use newly created LCKSM_NODLCKBLK 
(no deadlock on blocking AST) option on enqueue instead. 


v03-006 JAK0208 J A Krycka 08-May-1984 
Use LCKSM_NODLCKWT (no deadlock wait) option on enqueue service 
for the remote doorbell lock to avoid having the lock manager 
declare a deadlock situation. 


v03-005 GRROOO1 Sragery R. Robert _ 09-Sep-1983 
Supply missing dot in call to delete_files. 


V03-004 MLJ0115 Martin L. Jack, 30-Jul-1983 
Changes for job controller baselevel. 


V03-003 MLJ0114 Martin L. Jack, 23-Jun-1983 
Changes for job controller baselevel. 


v03-002 MLJ0113 _. Martin L. Jack, 26-May-1983 
Changes for job controller baselevel. 


v03-001 MLJ0112 _. Martin L. Jack, 29-Apr-1983 
Changes for job controller baselevel. 
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voo-008 J . Veseb-19RG 33:32:33 — EobBCTL SRETASTNGHRON. B92;3 625 

> 101 0100 1 REQUIRE 'SRC$:JOBCTLDEF'; : 
; 108 1141 1 : 
; 10 1148 1 : 
: 104 1143 1 FORWARD ROUTINE : 
; 105 1144 1 CREATE_SRQ_RECORD : 
i 106 1145 1 PROCESS REMOTE SERVICES: L_OUTPUT_1, : 
: 10 1166 1 SCAN_INCOMPLETE_SERVICES: NOVALUE, ; 
; 108 1147 1 REMOTE _BLOCKING-AST: NOVALUE , : 
: 109 1148 1 REMOTE_COMPLETION_NONAST: NOVALUE, : 
; 110 1149 1 REMOTE COMPLETION-AST: NOVALUE , ; 
. 397 1150 1 ENTER_REMOTE_REQUEST: NOVALUE , ; 
3 ig 113) 1 ENTER_REMOTE_REQUEST_AST: NOVALUE, : 
3; 11 11 ¢ 1 QUEUE -MASTER-AST: NOVALUE ; : 
3114 1153 1 : 
> (115 1154 1 : 
3; (116 1155 1 EXTERNAL ROUTINE : 
3 (117 1156 1 ABORT_EXECUTION, : 
; (118 1157 1 AF TER-AST: NOVALUE, ; 
3 119 1158 1 ALLOCATE_MEMORY, : 
; 120 1159 1 ALLOCATE-RECORD: L_OUTPUT_2, : 
3: 121 1160 1 BROADCAST_MESSAGE : NOVALUE, : 
; 1¢¢ 1161 1 COMPLETE JOB: NOVAL.UE, ; 
3; 12 1162 1 CREATE_SRB: NOVALUE, : 
3; 126 1163 1 DEALLOCATE_MEMORY: NOVALUE, . 
: 125 1164 1 DEALLOCATE RECORD: NOVALUE, : 
3 126 1165 1 DELETE FILES: NOVALUE, : 
: le 1166 1 FIND PENDING_JOBS: NOVALUE , : 
: 128 1167 1 FLUSA_RECORD: NOVALUE , ‘ 
: 19 1168 1 LOCK QUEUE FILE: NOVALUE, ‘ 
3 130 1169 1 PAUSE_EXECOTION, ‘ 
3 (131 1170 1 READ_RECORD, é 
: 132 1171 1 RELEASE RECORD: NOVALUE, : 
: 135 1172 #1 RESET _ERECUTOR QUEUE: NOVALUE, ‘ 
7 (134 1173 1 RESUME EXECUTION, | : 
3 135 1174 1 REWRITE RECORD: NOVALUE, ‘ 
; (136 1175 1 SCHEDULE _NONAST: NOVALUE, : 
3 137 1176 1 SEND_SERVICE_RESPONSE_MESSAGE: NOVALUE, : 
3; (138 1177 1 START_EXECUTION : 
: 139 1178 1 START-SYMBJONT_ STREAM, : 
3; 140 1179 1 STOP_SYMBIONT STREAM, ‘ 
3 141 1180 1 UNLOTK_QUEUE _FILE: NOVALUE, ‘ 
3 ae 1181 1 UPDATE GETQUT_DATA: NOVALUE ; : 
: 16 1186 1 . 
3: 144 118 1 : 
3 (145 1184 1 LITERAL ! : 
; 146 BY $4 1 K_COMPLETE= 0, : Complete request with status : 
i; 147 1186 1 K_DEALLOCATE= 1, ! Deallocate request ‘ 
3; 148 1187 1 K_REI| EASE= §: ! Leave request in queue i : 
; 149 1188 1 K_REWRITE= ; ! Leave request in queue and rewrite : 
3; 150 1189 1 : 
; (151 1190 1 : 
; 138 1191 1 BUILTIN : 
;. 5 1198 1 TESTBITSC, : 
3 (154 1193 1 TESTBITSS; : 
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rx 


GLOBAL ROUTINE CREATE_SROQ_RECORD(FUNC,P1,P2,P3,P4,P5,P6,P7)= 
'e¢ 
! 
FUNCTIONAL DESCRIPTION: ; 
This cei allocates, initializes, and enqueuves an incomplete service 
record. 


INPUT PARAMETERS: 
FUNC 


Wr OOO 


SLAAAP ARI 
uw 


- Function code. 


DOooowowowowono 


P1-P7 - Function=-specific parameters. 
IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


i 

i | 
i QUTPUT PARAMETERS: | 
: NONE | 
! 

le 


COO ON NN SSI NN NNO OO 


BEGIN 

LOCAL 

SQH: REF BBLOCK, : 
SRQ_N, ' Record number of SRQ record 
SRQ: REF BBLOCK, ! Pointer to SRQ record 
STATUS; ! Status return 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 | 
§ ' Pointer to SQH 
: Allocate the queue record, and return if no more. 


eet Ape hes Neh Ar Ne Ni or tip tynet ah at ot ah oh ot ah ot at ar ae ee 
oo MEW —OOONOU 
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STATUS = ALLOCATE_RECORD( ; SRQ_N, SRQ); 
IF NOT .STATUS THEN RETURN .STATUS; 


et tt tk a tk tk td ss = a ws a 2 a 2 a as 9 2s ss 4) ss ss 4 


oo 


: Initialize the incomplete service record. 


SROCSYMS$B_TYPE] = SYM$K_SRQ; 
SROCSROSL-FUNCTION CODE] = .FUNC; 
COPY_SYSIB(THIS_SYSID, SROCSRQ$T_SENDING_SYSIDJ); 
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CASE FUNC FROM SROSK START_JOB TO SROSK_START_SYMBIONT OF 


BREESE EPA IAI RIPINIPIPINININID 2 2 A OOO OS HM OOOO 


CINRANEE » OUTRANGE J: 


ee ee ee ee ee ed ad et wd ed od od od wd od ow 2 dd 


Be Be Se Se Oe Ge Se Se Se Se Se Se Se Se Se Se Be Ge Ge Se Se Ge Ge Se Se FH Se Ge Se Ge t+ Se Se Se Se Ge Se Se Se Ge Se Se Se Se Gee Se Se Se Seas Ge Se Se Geese 


NoPofonononofofnornofrofnonn— 
SAR 
Ronononononononononononononononofronony» 


~——§ O00 
mC OOn 


ooono 


Wee 


ssa 


WWIWUIRonononononononononyg 2 2 2 Se eS 
WN —O DONOUSWN—OVOONOur rw 


Sears 


SELLS EEE 
DONA NEWN "OC OONOUS WN —OOCONOuU 


PAA MIVIVIVIV 


wr 


oa 
co 


Be Se Se Se Se Se Se Se Be Se Se Fe Se Se Se Se Se Ge Se Ge Ge Se Fe Se Se Ge Se Se Ge Oe Ge SH Ss Se Ge Ge St He Ge Ge Se Se Se Se Se Se Se BOs Se Se Ss Se Se Se tee 


POPIPINIPIPINININININPDPDPINNNONYPIPININIPINIPINPINPIDINPININININONI PIMPIN PONNPoPoTnony 


o on an 
SOUSAR GRO 


CSRQ$K_SYNCHRONIZE_JOB): 
BEGIM 


SJH_N = Pl, ' Record number of SJH 
= P2: REF BBLOCK; ! Pointer to SJH 
SJHCSJHSV_SYNCHRONIZE] = TRUE; 
SROCSRO$V_STALLED] = ; 


= TRUE; 
COPY _SYSIB(THIS_SYSID, SRQCSRQ$T_RECEIVING_SYSIDJ); 
procsnes._piJ =". SJH_N; 


CSRQSK_START_QUEUE): 
BEGIN 
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1 
: CSROSK_START_JOB): 
BEGIN 
4 BIND 
22 SMQ_N = Pl, ' Record number of SMQ 
° SMQ = P2: REF BBLOCK, ! Pointer to §$ 
5 SJH_N = P35, ! Record number of SJH 
8 SJH = P4: REF BBLOCK; ! Pointer to SJH 
60 SROCSRQSV_NO_RESPONSE] = TRUE; 
61 SJHLSJHSV-STARTING) = TRUE; 
6¢ C SYSID(SMOCSMQ$T_SYSID, SROCSRO$T_RECEIVING_SYSIDJ); 
6 SROCSROS$L_P1] = .SMQ"N; 
rt: SRQCSRQSL_P2) = .SJH_N; 
66 
67 
68 CSRO$K_ABORT_JOB]: 
69 BEGIN 
70 BIND 
71 SMQ_N = Pl, ! Record number of SMQ 
sé SMQ = < REF BBLOCK, ! Pointer to §$ 
27 SJH_N = P3, ! Record number of SJH 
ie SJH = P4: REF BBLOCK; ! Pointer to SJH 
76 SJHCSJH$V_ABORTING] = TRUE: 
77 COPY SYSIB(SMQCSM $T_SYSIDI, SROCSROQ$ST_RECEIVING_SYSIDJ); 
78 SROCSRO$L_P1] = .SMQ"N; 
8 SROCSROSL_P2) = .SJHN; 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
3) 
38 
94 
2 
3 
9 


SMQ_N = Pl, ! Record number of SMQ 
= P2: REF BBLOCK; ! Pointer to SMQ 


SMOCSMQ$V_STARTING) = TRUE: 
SMQCSMQ$V"STOPPED] = SMQCSMQ$V_PAUSED] = FA 
COPY SYSIB(SMQCSMQ$T_SYSIDJ, SRQCSROQST_RECE 
procsras. py = .SMQ_N; 


LSE; 
IVING_SYSIDJ); 
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CSROSK_STOP_QUEUE): 


BEGIN 

BIND 
SMQ_N Let ' Record number of SMQ 
SMQ~ = P2: REF BBLOCK; i Pointer to SMQ 

SMOCSMQ$V_STOPPING) = 

COPY_SYSIB(SMQCSMOQS$T ~sy8103, SROCSROS$T_RECEIVING_SYSIDJ); 

SROCSROSL_P1) = .SMQ— 

END; 

CSRQ$SK_PAUSE_QUEUE): 

BEGIN 

BIND 
SMQ_N = Pl, ! Record number of SMQ 
SMQ = P2: REF BBLOCK; ' Pointer to SMQ 


smacsnasy PAUSING] = 
COPY S¥S15(SMaLsmast -5ystba, SROCSRO$ST_RECEIVING_SYSID)); 
SROLSR OgL Pi] = 


CSRO$K_RESUME_QUEUE]: 
BEGIN 


BIND 

SMQ_N = Pl, ! Record number of SMQ 
SMQ™ = PS: REF BBLOCK, ! Pointer to SMQ 

FLAGS = P3: BBLOCK, ' Resume control flags 
ALIGNMENT = P4, ' Alignment pages 
RELATIVE = PS, ! Relative page offset 
SEARCH_LEN = P6, ! Search string Length 
SEARCH_ADDR = P7; ! Search string address 


SMOCSMQSV_RESUMING] = 
COPY Svs 10 (SaOCSMOsT . “sySibd, SROCSRO$T_RECEIVING_SYSID]); 


SROCSROSL_P1] = ; 
SROCSROSL~P2) = .FLAGS: 
SROCSROS = ALIGNMENT; 
SROCSROSL—P4) = 


“RELATIVE 
CHSUCHART. SEARCH LEN, SROESROST_P 
CHSMOVE .SEARCH_CEN, .SEARCH ONDOR eacsrost _P5)+1); 


CSRQSK_RESET_QUEUE): 
BEGIN 


EG! 
BIND 
SMQ_N = Pl, ! Record number of SMQ 
SMQ = P2: REF BBLOCK; ! Pointer to SMQ 
SMOCSMOQSV_RESETTING) = RUE 
COPY SVS1B(SROLSHOSI _SY si SROCSRQ$T_RECEIVING_SYSIDJ); 
prot CSRO$L_P1)] = .SMQ"N; 
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CSRQSK_BROADCAST_MESSAGE): 
BEGIN 
BIND 
SYSID = Pl, 
USERNAME = P2: REF VECTORC,BYTE), 
LENGTH = P3, 
ADDRESS = P4; 


CSROSK _DELETE_FILES): 
BEGIN 
BIND 
SJH = Pil: REF BBLOCK, ' Pointer to SJH 
SQR_N = P2; ! Record number of SQR 
SROCSRO$V_NO iste! = TRUE; 
COPY SYSIB(SJHCSJHST_SYSIDJ, SROCSROST_RECEIVING_SYSIDJ); 
srocSrost Pi, = ,SQR-N; 


CSROSK_START_SYMBIONT): 
BEGIN 


BIND 
SMQ_N = Pl, ' Record number of SMQ 
SMQ = P2: REF BBLOCK; ! Pointer to SMQ 
SROCSRO$SV penn gt. = TRUE; 
COPY sys i0tsna anes ENSIB SROCSRQST_RECEIVING_SYSID)); 


SROCSROSL_P1 
END; 


TES; 


IF NOT .SROCSROSV_NO_RESPONSE) 


CREATE_SRB(SRQCSRO$T_SRBI) ; 


: If services of another job controller are required, signal it. 


if SYSID_NEQ(THIS_SYSID, SROCSRQST_RECEIVING_SYSIDJ) 
=r Mad ~ SROCSROSV_STALLED! 
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ENTER_REMOTE_REQUEST (SRQCSRQ$T_RECEIVING_SYSIDJ); 


esr 


Se Se ee Fe Se Ge Ge Ge Ge Ge Se Ge Stee 


QFFRANLSSSLEALF 


Asynchronous service management 


kk kt tt ts 
Poot et et et et et ot at at ee ae Oe et 
MEW —OOONOUE wr 


Enqueuve the record to the incomplete service List. 


gon = READ RECORD (SQHSK. REENODe 
SROCSYMSL_CINK OMPLETE_SERVICE_LISTI; 
SoH SOHst INCOMPLETE saree “LTS ST] = .SRQ_N; 

REWRITE RECORD(.SRQ_A); 
REWRITE “RECORD (SOHSR _RECNO); 


} Return 0 to indicate that the service is incomplete. 
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END; 
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ROUTINE PROCESS_REMOTE_SERVICES(SRQ;NEXT_ACTION): L_OUTPUT_1= 
oe 


FUNCTIONAL DESCRIPTION: 
This routine processes a remote service directed to this node. 


WAG 


INPUT PARAMETERS: 
SRQ - Pointer to SRQ. 


! 

4 i 

4 : 

4 : 

4 : 

4 : 
408 4 : 
409 4 ' IMPLICIT INPUTS: 
410 4 : NONE 
411 4 : 
tig 4 ' OUTPUT PARAMETERS: 
ht } NEXT_ACTION = Code identifying the next action. 
415 ! IMPLICIT OUTPUTS: 
416 : NONE 
417 5 : 
418 ! ROUTINE VALUE: 
rth Completion status. 
re !' SIDE EFFECTS: 
42 : NONE 
42 6 ‘ 
424 ‘ ine 
425 6 
426 6 BEGIN 
re 34 6 MAP q 
428 6 : REF BBLOCK; ! Pointer to SRQ 
$68 6 LOCAL 
4 6 STATUS; ' Status of the request 
iB 
135 : 
434 7 
435 7 
4 7 
4 
4 
4 
4 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
: STATUS = SS$_NORMAL ; 
2 


3 CAGE, SPOCEROL FUNCTION CODE? FROM SRQSK_START_JOB TO SRQSK_DELETE_FILES OF 
38 
39 
40 CINRANGE, OUTRANGE): 
7) NEXT_ACTION = K_COMPLETE; 
&& 
444 [SRO$SK_START_JOB): 
445 BEGIN 
446 LOCAL 
447 SMQ_N, ! Record number of SMQ 
448 SMQ: REF BBLOCK, ' Pointer to SMQ 
449 36 SJH_NP, ' Record number of predecessor of SJH 
450 8 SJH_P: REF BBLOCK, ! Predecessor of SJ 
451 88 SJH_N, ' Record number of SJH 
45 89 SJH: REF BBLOCK; ! Pointer to SJH 
45 90 
454 91 
455 92 SMQ = READ_RECORD(SMQ_N = SJH_NP = .SROCSRO$L_P1)); 


he —_-— —— ————— 
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sracsnas, ty CURRENT_LISTI; 


“vo Y " at 


READ_RECORD(.SJH_N); 

JH_N EQL .SROCSROSL_P2) 

GIN 

HCSJH$V_STARTING] = FALSE; 

ATUS Use START _EXECUTION( 
*SJH-N, .SJHS; 


IF NOT NetATUS 
THEN 


BEGIN 

UPDATE_GETQUI_DATA(. agit N, : 

SMQCSMO$B_CURRENT_J g.couirs = Me wOCSMOSB_ CURRENT JOB. COUNT] - 1; 
1 et ~SJH_NP EQL NSA. 


eet Smasi CURRENT ist = NK]; 
ul -SJHCSYMSL_LINR tot CSMOr Sas CURRENT_LIST_ENDJ 


" 
Oo 


GIN 
SdH PCSYMSL_LINK] = .SJHCSYMSL_LINK); 
TSJHCSYMSL LINK EQL 0 THEN SMOCSMQS$L_CURRENT_LIST_END] = .SJH_NP; 
RevitiTe RECORD(S H_NP); 
SJH HES InEL CONDITION_1] = .STATUS; 
COMPLETE JOB(.SJH_N, .SJH, .SMQ, 0); 
FIND_PENDING_JOBST.SMQ_N, .SMQ); 
END 
LSE 
REWRITE_RECORD(.SJH_N); 
REWRITE_RECORD(.SMQ_N); 
EX XITL TLOOP; 
IF .SJH.NP NEQ .SMQ_N THEN RELEASE_RECORD(.SJH_NP); 
S41 NP = .SJH_N: 


.SJH: 
>SJHESYMSL_LINK]; 
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aJK- N 
: NEXT. ACTION = K_DEALLOCATE; 

501 538 
eng 539 
50 540 CSRQ$K_ABORT_JOB): 
504 541 BEGIN 
505 ate LOCAL 
506 54 SMQ_N, ! Record number of SMQ 
507 544 SMQ: REF BBLOCK, ' Pointer to S$ 
508 545 SJH_N ' Record number of SJH 
509 e68 SJH"NS, ' Successor of SJH 

510 54 SJH: REF BBLOCK; ' Pointer to SJH 
ai} 548 

12 549 
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SMQ = READ_RECORD(SMQ_N = .SROL ROSL .P1)); 
SJH_N = .SMQ anest cy CURRENT. LISTJ; 


FISTS 
Wrst 


WHICE .SJH_N 
BEG READ RECORD ( | 
§ | 
IF N EQL .SRQ ater ase 23 
THEN 


oe ABORTING] = FALSE; 
STATUS = ABORT EXECUTION( 


“na “N. .SJHS; 
REWRITE MnEtoRDC. SJH_N); 
EX MIT LOOP; 


. SJHCSYMSL_LINK); 
RELEAS ASE_R ECO RD(.SJH_N); 
SJH_N = .SJH_NS; 


N 
ere tena = K_COMPLETE; 
END; 


CSROS$K_START_QUEUE): 
BEGIN 
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; 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

5 MQ_N, ' Record number of SMQ 
H SMQ: REF BBLOCK; i Pointer to SMQ | 
5 
54 SMQ = READ re Vg al py. N= ROCSRQ$L_P1)); 

5 STATUS = STARTS MBIONT _STR AM(.SMQ LA, .SMQ); 

5 IF NOT . TUS” 

2 ENBEGIN 

5 CMeLSMOSV_ STARTING) = ae 
5 6 SMOCSMQ$V-STOPPED) = TRUE; | 
5 7 NEXT T_ACTION = K ECOMPLETE, 

5 8 END 

5 9 

5 0 BEGIN 

5 1 SROCSROSL Saree ye copes SRQ$K_START_SYMBIONT; 

5 9 SROCSROSV STALLED] = TRUE; 

5 9 TACT TON K “REWRIT - 
5 94 aH 
5 95 REWRITE. RECORD(.SMQ_N); 

5 96 END; 

5 97 
5 98 
5 99 CSROS$K_STOP_QUEUE): 

5 00 BEGIN 

564 01 LOCAL 

565 8 SMQ_N, ' Record number of SMQ 
560 0 SMQ: REF BBLOCK; ' Pointer to SMQ 
oC 
569 06 SMQ = READ_RECORD(SMQ_N = .SRQCSROQ$L_P1]); 
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; 570 1607 SMOCSMOSV_STOPPING] = FALSE; : 
: $71 1608 TOP_SYMBIONT STREAM(.SMQ_N, .SMQ); : 
; 57 1609 REWRTTE_RECORD(.SMQ_N); ; 
; 57 1610 NEXT_ACTION = K_COMPLETE; : 
: 574 1611 END; ; 
; 575 161¢ ; 
; 576 161 | ; 
: 577 1614 CSRQ$K_PAUSE_QUEUE): | ; 
; 578 1615 BEGIN : 
: 279 1616 LOCAL | : 
: 380 1617 SMQ_N, ' Record number of SMQ : 
; 581 1618 SMO? REF BBLOCK; ' Pointer to SMQ | : 
; 28¢ 1619 | : 
; 58 1620 : 
; 584 1621 SMQ_= READ_RECORD(SMQ_N = .SROCSRQSL_P1)); | : 
; pee 16 ; SMQCSMQ$SV_PAUSING] = FALSE; : 
; 586 16 STATUS = PAUSE_EXECUTION(.SMQ_N, .SMQ); ; 
; 587 1624 IF NOT .STATUS THEN FIND_PENDING_JOBS(<.SMQ_N, .SMQ); : 
; #588 1625 REWRITE _RECORD(.SMQ_N); | ; 
: 589 1626 3 NEXT_ACTION = K_COMPLETE; | : 
; 590 1627 2 END; ° 
; 591 1628 ; 
; 9¢ 1669 | : 
; 59 1630 CSRO$K_RESUME_QUEUE): | : 
; 59% 1631 BEGIN | : 
; 595 163¢ 3 LOCAL | : 
; 596 163 SMQ_N, ! Record number of SMQ ; 
; 597 1634 3 : REF BBLOCK; i Pointer to SMQ : 
: 598 1635 ; ‘ 
; 599 1636 : 
; 600 1637 SMQ_= READ_RECORD(SMQ_N = .SRQCSRQ$L_P1)); : 
; 601 1638 SMQCSMQ$V_RESUMING) ="FALSE; é 
: 602 1639 STATUS = RESUME EXECUTION( : 
; 603 1640 -SMQ_N, .SM : 
3 604 1641 . SROTSROSL Pe] .SROCSROSL_P3], .SROCSROSL_P4), : 
; 605 1649 CHSRCHAR(SROCSRO$T_P5)]), SROCSRO$T_P5J+1); : 
; 606 1643 3 FIND_PENDING JOBS(.SMQ"N, .SMQ); : 
3 607 1644 ; REWRITE RECORD(.SMQ_N); | : 
; 608 1645 NEXT_ACTION = K_COMPLETE; | : 
; 609 1646 2 END; : 
: 610 1647 2 ‘ 
; 611 1648 2 : 
: 612 1649 CSRO$K_RESET_QUEUE): : 
; 61 1650 BEGIN : 
; 614 1651 LOCAL : 
: 615 1636 SMQ_N, ' Record number of SMQ ; 
: 616 165 SMQ: REF BBLOCK; ' Pointer to SMQ : 
; 617 1654 : 
; 618 1655 : 
; 619 1656 SMOCSMOSV_RESETTING) = FALSE; : 
; 620 1657 SMQ = READ RECORD(SMQ_N = .SROCSROSL_P1)); : 
3 621 1658 RESET _EXECOTOR_QUEUE(7SMQ_N, .SMQ); : 
; 622 1659 REWRITE_RECORDT.SMQ_N); ; 
; 6 1660 NEXT_ACTION = K_COMPLETE; : 
> 624 1661 : : 
; 625 166¢ : 
; 626 166 ‘ 
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: INFO#250 
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1$-s25-19 984 $3: 


9: 
14- =3007}3 4 2: 


627 1664 CSROQSK_BROADCAST_MESSAGE): 

628 1665 BEGIN 

629 1666 BROADCAST_MESSAGE ( 

630 166 H YSID 

631 1668 SROCSROST _BRDCST sen 
6 ¢ 1669 .SROCSROS@ BROCST 

6 1670 eration = BRDCST TEX! 

6 1671 T_ACTION ="K ROEALCOCATEs: 
635 1678 

6 167 

637 1674 

6 1675 CSRO$SK_RESPONSE): 

6 1676 IN 

640 167 SEND_SERVICE_RESPONSE_MESSAGE ( 
641 1678 RQ 

66g 1679 ~SRQ 

64 1680 NEXT “ACTION. sf "DEALLOCATE; 
644 1681 END; 

645 1682 

646 168 

647 1684 CSROSK_DELETE_FILES): 

648 1685 BEGI 

649 1686 DELETE_FILES(.SROCSROS$L_P1)); 
650 1687 NEXT_ACTION = K_DEALLOCATE; 
651 1688 2 ND; 

63¢ 1689 

65 1690 

654 1691 TES; 

655 1692 2 

656 169 

657 1694 gSTATus 

658 1695 


ene E : :1517 
Gerecsoces LOCAL symbol ayn P_ is probably not initialized 
Referenced LOCAL symbol SMQ is probably not initialized 
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WOR 
000000006 Ff 9c 9000 MOVAB REA RECORD, 
D MOVL #1, STATUS 
06 AC 000 MOVL  SRQ, R2 
0c CF CASEL 12(R2), #1, #10 
<WORD 2$-1$,- 
12$-1§,- 
2 $-1$,- 
17$-1$.- 
0$-1$,- 
1$-1$.- 
g5-18.- 
$-1$.- 
9$-1$;- 
0$-1$,- 


62:3 


Save R2,R3,R4,R5,R6,R7,R8B,R9,R10 
D R10 
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oOo 
port 


$ 
tae), SJH_NP 
SJH_NP, SMQ"N 


= 
oo 

oO 

~m 


N 
#4, START_EXECUTION 
0, STATUS 


SJH_N 
We UPDATE_GETQUI_DATA 
277(SMQ) 


CODD SO DDD OD I BB EWI 
VANS SPAMS DOVIMNO FS OLNMMOOwW Oo & NVTOM® 


oo 
oO 


SJH_NP, 76(SMQ) 


“REWRITE RECORD 
STATUS, 220TSJH) 


SJH_N 
End COMPLETE_JOB 


“FIND -PENDING_JOBS 


wo 
NOW LVOONM OU "SO PS 


REWRITE RECORD 
“REWRITE_RECORD 
SJH_NP, SMQ_N 

US" 
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; 
: 
6 
| 
; 
5 


1 RELEASE RECORD 
JH_ 


5 
ASYNCHRON Asynchronous service management 1b.52 -1984 49:14 AX-11 Bliss-32 V4.0-74 Page 22. 
youn 008 . ° 1eree=} ORs 83:93:43 PaMe ct thes aseutnnon oS2;3 v | 
59 54 D £3 MOVL S$JH, SJH_P ; 1535, 
6 64 p EG MOVL Suh), SJH_N : 1534. 
FF55 E BRW + 1494 | 
57 20 Ag DO OOOEC 128 MOVL 2(R2), SMQ_N : 1550) 
DD OOOF PUSHL  SMQ_N : 
A 1 Ff F CALLS #1, READ_RECORD : 
5 D F MOVL R0 SMQ : 
4 sR AS OD F MOVL  72(SMQ), SJH_N ; 1951 | 
0 } FC 13$ BNEQ 148 + 1552) 
011 OFF BRW 28$ : 
54 DD 00101 148 PUSHL S$JH_N : 1554 | 
ga 1 FB 4 3 CALLS #1, READ_RECORD : 
i 0 pO 001 MOVL RO, SJH : 
24 «A 4 D1 0010 CMPL SJH_N, 36(R2) + 1555 
18 12 00100 BNEQ igs : 
10 A3 BA 0010F BICB2 #2, 16(SJH) + 1558 
DD 113 PUSHL  SJH + 1561 
4 pd 0011 PUSHL SJH_N : 
55 DD 00117 PUSHL  SMQ + 1560 
57 DD 00119 PUSHL SMQ_N : 
000000006 Ef 04 FB 0011 CALLS #4, ABORT_EXECUTION : 
8 50 pO 001 MOVL 0, STATUS : 
54 bp 001 15$:  PUSHL t + 1562 
oe 1 00127 BRW 27 : 
56 : DO 0012A 16$:  MOVL (SJH), SJH_NS + 1565 
4 DD 00120 PUSHL _N + 1566 
000000006 EF 01 FB 01 F CALLS #1, RELEASE_RECORD ; 
4 6 DO 00136 MOVL § SJH_NS, SJH"N : 1567 
C1 11 00139 BRB 1 : 1552 
54 20 A2 DO 00138 17$:  MOVL $32(R2), SMQ_N : 1580 
54 DD 0013F PUSHL  SMQ_ : 
6 oN FB 00141 CALLS #1, READ_RECORD ; 
53 9 DO 00144 MOVL RO, SMQ : 
53 DD 00147 PUSHL SMQ > 1581 
54 DD 00149 PUSHL  SMQ_N ; 
000000006 EF 08 FB 00148 CALLS #2, START_SYMBIONT_STREAM : 
+) 5 D9 0152 MOVL RO, STATUS ; 
0¢ 68 015 BLBS stATUS 18$ : 1582 
ee 1 BA 00158 Bi CB wi, 17¢SMQ) > 1585 
11. a3 2 88 0015¢ SB2 #2. 17(SMQ) : 1586 
B D4 0016 CLRL. = NEXT_ACTION : 1587 
0B 11 0016 BRB 19$ : 1582 
oc A OC 00 00164 18%:  MOVL #12, 12(R2) : 1591 
10 A a 0168 BISB2 ae. 16(R2) : 1598 
58 DO 0016C VL. #3. ~NEXT_ACTION : 159 
4 0 OO1GF 198: — PUSHL —§ én : 1595 
000000006: EF 01 FB 1 1 CALLS #1, REWRITE_RECORD ; 
00D2 31 00178 BRW : 1473 
53 20 A2 00 0017B 208:  MOVL (R2), SMQ_N > 1606 
6A 1 Pe 1h CALLS ok AD_RECORD : 
11. AO 4 BA 18 BICB2 «#4 ToC eaa) : 1607 
: DD 001 PUSHL SMO > 1608 
000000006 EF PB OOTae CALLS RO S"STOP_SYMBIONT_STREAM 
9 ‘8 1 BRB gs . * + 1609 
54 20 a2 dO 00195 21$:  MOVL 2(R2), SMQ_N > 1621 
| 
| 
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4 DD 00199 PUSHL SMQ_N ; | : 
6A 1 FB 198 CALLS #1, READ_RECORD : | ; 
; 4 15 MOVL ry é | ° 
10 A A OO1A BICB2 #8. 16(SMQ) : 1622 : 
DD 1A PUSHL $M + 1623) ; 
4 DD OO1A PUSHL  SMQ_N : | ; 
000000006 Ef FB OO1A9 CALLS 2, PAUSE_EXECUTION : | : 
8 D 189 MOVL RO, STAT : ; 
2F ; E9 0018 BLBC TATUS, 23$ > 1624 : 
11 0186 BRB 4$ + 1625 : 
54 20 A2 DO 00188 228: MOVL 2(R2), SMQ_N + 1637 : 
4 DD o1BC PUSHL in : ; 
6A 1 FB 1BE CALLS #1, ~READ_RECORD : : 
53 0 D orc MOVL RO. S : : 
10 A3 40 BF 8A 001C4 BICB2 #64, 16(SMQ) + 1638 : 
31 R2 9F 00109 PUSHAB 49(R2) : 1642 : 
7E 0 Ad 9a 001CC MOVZBL 48(R2), =(SP) : : 
7E 38 A2 7D 9100 OVO  40(R2). =-(SP) : ; 
4 A2 DD 00104 PUSHL  36(R2) : : 
3 DD 00107 PUSHL  5MQ : 3 
4 DD 00109 PUSHL  SMQ_N : ; 
000000006 Ef 07 FB 001D CALLS #7, RESUME_EXECUTION F : 
8 9 DO OO1E MOVL RO, STATUS ; : 
53 DD OO1ES 23$:  PUSHL SMA + 1643 ; 
54 DD OO1E7 PUSHL SMQ_N : ’ 
000000006 EF 02 FB OO1E9 CALLS #2, FIND_PENDING_JOBS ; : 
FF32 31 OO1F 348: BRW + 1644 ; 
10 a0 20 BA O01F3 25$:  BICB2 #32, 16(SMQ) + 1656 : 
53 20 Ae DO OO1F MOVL 32(R2), SMQ_N : 1657 : 
53 DD OO1F PUSHL $MQ_ ; : 
6A 01 FB OO1FD CALLS #1, READ_RECORD ; ; 
50 DD 00200 PUSHL SMA : 1658 ; 
53 DD 00202 PUSHL  SMQ_N : ; 
000000006 EF 0@ FB 00204 CALLS #2, RESET_EXECUTOR_QUEUE ; : 
53 DD 00208 26$: PUSHL SMQ_N > 1659 : 
000000006 EF 01 FB 0020D 27$: CALLS #1, REWRITE_RECORD : : 
38 D4 99 14 28%:  CLRL NEXT ACTION > 1660 ; 
11 00 1 BRB 33$ + 1473 3 
42 A2 9F 00218 298 PUSHAB 66(R2) : 1670 ; 
7E 40 Ad 3¢ 00 1B MOVZWL 64 (R ), =(SP) : : 
20 A2 9F OO2TF PUSHAB 32(R2) > 1668 : 
00000000° EF 9F 00 ; PUSHAB THIS SYSI + 1666 ; 
000000006 EF 4 FB 00 CALLS #4, BROADCAST_MESSAGE > 1670 F 
19 11 0 F BRB 328 : 1671 
20 A po 1 30$ PUSHL (R2) + 1679 
0 Ad 9F 00234 PUSHAB 112(R2) : 1678 
000000006 EF 0 FB 00237 CALLS #2, SEND_SERVICE_RESPONSE_MESSAGE ; 
A 11 00 BRB ; § + 1680 
20 A2 DD 00240 31$: = PUSHL (R2) > 1686 
conmmenede if v6 B5ek x75, ROH” B1” MERE ACTON > 1687 
38 O10 OO2GA 325: MOVE #1; NEXTA : 1687 
04 00250 RET : 


; Routine Size: 593 bytes, Routine Base: CODE + 0195 
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; $69 1696 ! GLOBAL ROUTINE SCAN_INCOMPLETE_SERVICES(EVENT,P1,P2,P3,P4): NOVALUE= 

3 666 1998 1 tee 

; 66 1 1 

; 664 1700 1! FUNCTIONAL DESCRIPTION: 

; 665 1701 1: This routine scans the incomplete services List when a specified event 

5 006 i § : ; that allows an incomplete service to progress has occurred. 

; 668 1704 1 ! INPUT PARAMETERS: 

: 66? 1705 1! EVENT - Code identifying the event. 

3 or 1708 : P1=P4 - Event-dependent parameters. | 

; 67% 1506 1! IMPLICIT INPUTS: 

; 67 1709 1! NONE 

; 674 1710 1! 

; 675 1711 1 =! OUTPUT PARAMETERS: 

; 676 ar i NONE 

: 677 1713 1! | 

; 678 1714 1°! IMPLICIT OUTPUTS: 

; 679 1715 1! NONE 

; 680 1718 1! 

; 681 171 1 ! ROUTINE VALUE: | 

; 68 1718 1! NONE 

; 68 1719 1! | 

; 6684 1720 1 ! SIDE EFFECTS: 

; 685 Wet 1 | NONE 

; 686 17 ; 1! 

; 687 1723 1 !-- 

; 688 1724 1 

; 689 1725 2 BEGIN 

; 690 1726 LOCAL 

; 691 1727 PRED_MODIFIED, ! True if predecessor modified 

; 692 1728 SRQ_AP, ' Record number of predecessor, of SRQ 

3 693 1769 SRO"P: REF BBLOCK, ' Pointer to predecessor of SRQ 

; 694 1730 SRQ_N; ! Record number of SRQ 

; 695 1731 

; 696 HAY) 

3; 697 173 ' Search the incomplete service List for those that are affected by the 

; os He specified event and process these. 

; 700 1F8 PRED_MODIFIED = FALSE 

; 701 1737 S$RQ _P = READ eta NP = SQH$K_RECNO); 

; 70 1738 2 SRN =. SRO-PCSQHSL INCOMPLETE _SERVICE_LIST); 

: 70 1739 WHI ce 2SRO_N 

: 704 1740 BEGIN 

3; 705 1741 LOCAL | 

; 706 Hot SRQ: REF BBLOCK, ' Pointer to SRQ 

; 707 174 SRQ_NS, ' Record number of successor of SRQ | 

; 708 1744 STATUS ' Request status | 

; 709 1745 NEXT URETION: ! Code for next action | 

3: 710 1768 

: 711 174 | 

Z at; Ho 4 ane = READ Ay A -SRQ_N); 

: 71 174 SRO_NS = .SROCSYMSL_LINK): 

3; «716 1750 

; 715 1751 , ; 

; 716 1752 ' Check for corrupted incomplete services List. If an incorrect record type | 
| 


~wM 
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is found, truncate the List. The cope ining tocerer are either already 
Linked to another { st, or they will be lost until a cold start qperstton 
is performed. Pruni ng these unwanted records (most Li kely free List or 
job header records) from the i cagiete services List will prevent 
reading them every time SCAN_ INCOM LETE_SERVICES is called. 


SROCSYM$B_TYPE] NEQ SYM$K_SRQ 


es 


' 
i 
i 
i 
i 
i 
if . 
er 
DikGe TRACE -DIAG_TRACEC12) 
a “ROE SYRB Bolte ) * “iss36 + .SRQ_N; 

trusts 01 pihctberte OR STS$K_INFO 

TOR(*on=Line repair of i ieectets services list") ); 


L_ SQHSK 
pp gout INCOMPLETE SERVICE LIST] = 0 
- LOLINK] = 0;~ 

= 


EL SYM$ 
PRED aieh B = TRUE? 


ExITCOO 
END; 


STATUS = S$S$_NORMA 
NEXT_ACTION = K RRELEASE; 


QQ SS 


&rww 
MOOD NOUNE WN 0 OONOUS WN OOOn 


CISRV_K REMOTE): 
BEGIN 


IF SYSID_EQL(THIS SYSID, SROQCSRQ$ST_RECEIVING_SYSIDJ) 
“8 NOT 7SROCSROST_ STALLED] 


STATUS = PROCESS_REMOTE_SERVICES(.SRQ; NEXT_ACTION); 


CISRV_K SYNCHRONIZE): 
BEGIN 


D 
SJH_N ' Record number of SJH 


P2: i Completion status 
ait i i SRQ$K_SYNCHRONIZE_JOB 


w 

“ 

~*~ 
“uu 


- SROCSRQ$SL_FUNCTION 
AN -SROCSROSC_P1] EQL 


SOODWNAMNE WN $ O ODNAUE WIN $0 OONOA UENO ODNAV EWN OO OODNOUEWw 


| 
| 
| 
| 
} 
| 
CASE EVENT FROM ISRV_K_REMOTE TO ISRV_K_PURGE_SJH OF 
} 


ODO OOOO OOO OO OW 00 09 09 09 09 09 00 09 SI SIN SINS SN NS OP PAPA AAA AO IIIT 


BEGIN 
NEXT ACTION = K COMPLETE; 
ND; 


END; 
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CISRV_K_SYMBIONT): 
BEGIN 


its 
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; 77% 1810 4 BIND ; 
; 775 1811 4 SMQ_N = Pl, ! Record number of SMQ ‘ 
3 Tre 1 \¢ 4 SMQ = PS i Pointer to SMQ : 
Re va 1815 4 FUNC = PS, i Function completed ‘ 
3 78 ! 1 ? STS = Pd; i Completion status ; 
3 ro 181 4 IF .SROCSRQ$L_FUN nell ON_CODE] EQL SRQSK_START_SYMBIONT ‘ 
; 781 181 4 AND .SROCSROQ$ $C_ P11] EQL~.SMQ_N ° 
; 4 4 1818 5 AND (.FUNC EQL~O OR .FUNC EOL . SROCSROSL_FUNCTION_CODE)) : 
; 78 1819 4 THEN ; 
; 784 1820 BEGIN : 
: 785 18 1 NEXT ACTION = = K COMPLETE; : 
; 787 1823 4 ; 
; 788 1824 END; . 
: 789 1825 : 
; 790 1826 : 
: 791 1827 3 CISRV_K_PURGE_SYSID): : 
; 79 1828 4 BEGIN : 
: 79 1809 4 BIND ; 
; 794 1830 4 SYSID = Pl; ! Pointer to system ID ‘ 
> 795 1831 4 : 
; re 1358 i IF SYSID_EQL(.SYSID, SRQCSRQ$T_SENDING_SYSIDJ) ‘ 
; 798 1834 4 NEXT_ACTION = K_DEALLOCATE : 
; 799 1835 4 ; 
; 800 1836 5 ELSE IF SYSID_EQL(.SYSID, SRQCSRO$ST_RECEIVING_SYSIDJ) ‘ 
; 801 1837 4 THEN ; 
; 80 1838 5 BEGIN ° 
; 80 1839 5 STATUS = JBCS_ SYSFAIL OR STS$K_ERROR; : 
3 804 1840 5§ NEXT_ACTION = “K COMPLETE; 

; 805 1841 4 END; 

3; 806 1966 END; 

; 807 184 

; 808 1844 

; 809 1845 CISRV_K_PURGE_SMQ): 

; 810 1846 4 BEGIN 

3; «68611 1847 4 IND 

; 8l2 1848 4 SMQ_N = Pl; ! Record number of SMQ 

; «4813 1849 4 

; «6814 1850 4 

3; «6815 P 1851 4 ONEOF (, atti FUNCTION_CODE], BMSK_( 

; 816 P 1836 4 SRO$K START QOEUE, 

3 aii P 132 4 RQ$K_STOP QUE 

: 818 P1854 4 SROSK~PAUSE_QUEUE 

: 819 P1855 4 SROSK-~RESUME QUEUE, 

; 820 P 1856 4 SRQSK_RESET _GUE 

; 821 1857 SROSK~ START SYMBIONT) ) | 

; 8 ¢ 1858 4 AND .SROCSRO$iL_P1) EQL .SMQ_N 

: 8 1859 4 N 

; B26 1860 4 NEXT_ACTION = K_COMPLETE; 

; $25 1861 D; 

PY 6 1 o¢ } 

3 Ber 186 | 

; 828 1864 CISRV_K PURGE _SJHJ: 

: $3 1865 4 BEGIN 

3 0 1866 4 BIND 
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14-Sep-1984 2 JOBCTL.SRCJASYNCHRON 
é ; SJH_N = Pl; ! Record number of SJH 
P ONEOF_(,SRQCSRQSL_FUNCTION_CODE], BMSK_( | 
P SROSK_START_J 


SROSK ABORT = J0B3) 
AND .SROCSROQ$L_P2) EQL .SJH_N 


HEN 
NEXT_ACTION = K_COMPLETE; 
END; 


TES; 


fg MEET ACTION EQL K_COMPLETE | 
BEGIN | 
If no response is required, merely deallocate the SRQ. 
IF .SRQCSRQ$V_NO_RESPONSE]J 
NEXT_ACTION = K_DEALLOCATE 


If the response can be sent locally, send it and deallocate the SRQ. 
ELSE IF SYSID_EQL(THIS_SYSID, SRQCSRQ$T_SENDING_SYSIDJ) 


PPPs & EEE PW 
WN O OONOUS WN SO ODNOAUESWN —"OOONOu 


ooo ~o OOO 00 00000000 W008 SIN NIN NOOO 


CONAULE WN @ O ODNOA UNE WN O OONOAUE WN S(O CONOULS WN OVO@~ 


WO OOOWO OOOO OOO 00 09 09 00 0D 0D Cd CD GD CD GD OD CD CD CD CD CD CD CD CD CD CD CD CD 


a a ee ee ee eee 
wie eee eee Pe eee ee ee ee lar a or or or or ar ar ar ar ar le |e ew 


9 
9 
9 
9 
861 9 BEG! 
86 9 SEND_SERVICE_RESPONSE MESSAGE (SRQCSRQ$T_SRBJ, .STATUS); 
86 9 NEXT_ACTION = K_DEALLOCATE; 
864 0 END 
865 0 
866 0 
867 0 ! Otherwise, convert the SRQ to a ‘‘response’’ request and forward it 
868 ! to the sending job controller. 
869 0 ! 
870 ELSE 
871 0 BEGIN 
872 0 COPY_SYSID(SRQOCSROQ$T_SENDING SYSID], SROCSROQ$T_RECEIVING_SYSIDJ); 
873 09 COPY-SYSID(THIS_SYSIB, SROCSRasT SENDING SYSIDJ); 
874 910 SROCSROSL_FUNCTION CODE] = SRQ$K_RESPONSE; 
875 911 SROCSRO$L-P1] = STATUS: 
876 aig SROCSRO$SV_STALLED] = FALSE; 
877 91 ENTER REMOTE _REQUEST(SROCSRO$ST_RECEIVING_SYSIDJ); 
878 914 NEXT_ACTION = K_REWRITE; 
879 915 END; 
880 916 END; 
881 917 
HG 918 
88 919 CASE .NEXT_ACTION FROM K_DEALLOCATE TO K_REWRITE OF 
He 920 SET 
85 921 
886 356 
887 4 CK_DEALLOCATE): 
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88 BEGIN 

89 IF .SRQ_NP EQL SQHSK_RECNO 

90 THEN SROQ_PCSQH$L~ INCOMPLETE a ba LIST] = .SRQ_NS 

4! ELSE sha- ~PCSYMSL_LINK] = .SRQ_ 
83 First, rewrite the AS ope nega gd pre seers the SRQ. 

94 If done in the opposite order after the deallocate 
895 can result in a corrupted INCOMPLETE. seeRvICE tists which 


will then result in a queue format error on warm/cold start. 


Mon. -.-.<.-.- 


END; 


3 1924 4 ; 
3 1925 4 a 
3 19 § 4 ; 
5 19 4 ; 
3 1928 4 3 
; 1929 4 : 
3 1930 4 : 
s 1931 4 ; 
: 19 ¢ 4 ; 
5 19 4 $ 
; 898 1934 4 FLUSH RECORD(.SRQ_MP); 2 
: 899 1935 4 EALLOCATE_RECORDT.SRQ_N); ; 
5 1936 ND; : 
; 901 1937 é 
: 90 1938 : 
; 90 1939 CK RELEASE): ; 
; 904 1940 4 BEGIN . 
; 905 1941 4 IF "Sore pboat tee MODIFIED) ; 
; 906 1306 4 THEN REWRITE -RECORD(. SRQ_NP) ; 
; 907 194 4 ELSE RELEASE “RECORD (. SRO~ NP); $ 
; 908 1944 4 RQ_NP = ,SRQ_N; ; 
; 909 1945 4&4 ora “Pp = .SRQ; : 
; 910 1946 3 5 : 
3 911 1947 $ 
$ aig 1948 : 
s 91 1949 CK_REWRITE): ; 
> 914 1950 4 BEGIN : 
3; 6915 1951 4 IF TESTBITSS(PRED_MODIFIED) 2 
; 916 1926 4 THEN REWRITE -RECORD(. SRQ_NP) : 
; 917 1953 4 ELSE RELEASE “RECORD(.SRQ “NP); ; 
; 918 1954 4 SRQ_NP = .SRQ_N; | : 
; 919 1955 4 SRQ Q"P = ~SRQ; : 
: 920 1956 ; END; : 
: 921 1957 : 
; 356 1958 3 : 
s Fe 1959 3 TES; é 
: 924 1960 3 ; 
: 925 1961 ; ; 
> 926 196¢ SRQ_N = .SRQ_NS; | ; 
3; Per 196 END; ‘ 
: 928 1964 3 
3 363 1965 3 
; 930 1966 IF .PRED_MODIFIED ‘ 
; «931 1967 THEN REWRITE _RECORD(.SRQ_NP) 3 
3 o36 13c8 ‘ ELSE RELEASE  RECORD(.SRQ_NP) : 


20 72 69 61 70 65 72 20 65 of 69 6C 2D 6E 6F OQ03E6 P.AAB: .ASCII \on-Line repair of incomplete services Li\ ; 
73 20 65 74 65 6C 70 6D 6F 6 of 69 60 66 6F O03F5 : 
69 6¢ 20 73 65 63 69 76 72 65 00404 : 

74 7 Bete eASCII \etN ; 

00002 at «LONG 4c : 

000000' 00414 -ADDRESS P.AAB : 
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youn 000 ° 14-Sep 71982 33:35 :32: £43 JOBCTL.SRCJASYNCHRON.B352; 3 ” (83 


OFFC 00000 .ENTRY SCAN INCOMPLETE. SERVICES, Save R2,R3,R4,R5,-; 1696 
R6,R7_R *R11 : 
5A 000000006 EF 9€ 0002 MOVAB REWRITE ke PORD. R10 : 
9 00000000' EE 9E 0000 MOVAB THIS SYSID R9 : 
7 04 0001 CLRL = PRED“MODIF IED > 1736 
55 1 DO 0001 OVL #1, SRQ_NP + 1737 
1 DD 0001 PUSHL #1 : 
000000006 ff 1 FB 1 CALLS #1, READ_RECORD : | 
3 : DO OOO1E OVE RO, sro_P : | 
56 44 =A 06 0021 MOVL $ (SRQ_P), SRO_N + 1738) 
4D 1 88 3 1$: EQL $ 3 1739. 
56 DD 00 PUSHL  SRQ_N : 1748. 
000000006 EE 01 FB 00029 CALLS #1, READ_RECORD : | 
2 50 D0 900 9 MOVL RO, SRQ : 
58 62 DO 00 MOVL  (SRQ), SRQ_NS > 1749 
09 04 A2 91 000 CMPB Os 4(SROS, #9 : 1759. 
3B 13 0003A BEQL «ss 6S F 
FE28 C9 Db 0003C INCL DIAG_TRACE+48 : 1762 
50 04 A2 9A 00040 MOVZBL 4(SRO), RO : 176 
50 50 10 78 00044 ASHL #16, RO ; | 
FE2c C9 50 56 C1 00048 ADDL3 SRQ/N, RO, DIAG_TRACE+52 ; | 
12 FA AQ 05 a 0004 BBC #5, FLAGS+2, 28" : 1764 | 
A2 AF SF 0005 PUSHAB P.AAA > 1766) 
01 oD 00056 PUSHL #i > 1765. 
00048483 8F DD 00058 PUSHL #29 : | 
000000006 00 03 FB O005E CALLS #3, LIBSSIGNAL : | 
01 55 D1 00065 2$ CMPL = SRQ_NP, : 1767. 
05 12 00068 BNEQ 3$ : | 
44 A3 D4 0006A CLRL  68(SRQ_P) : 1768 | 
02 11 0006D BRB ; 
63 D4 OO06F 3S: CLRL = (SRQ_P) : 1769 | 
57 01 B60 00071 4$: MOVL #1, PRED_MODIFIED t 1770 
O15F 31 00074 5$: BRW 348 > 1761. 
54 01 DO 00077 6$: MOVL #1, STA : 1775. 
58 02 DO 0007A MOVL #2, NEXT_ACTION : 1776) 
05 00 04 AC CF 0007D CASEL EVENT, #0, : 1779 | 
0060 003F 002A 000¢ 00082 7$: WORD 8$-7$.- : 
009E 008¢ 0008A 9$-7$.- ; 
10$-7$§,- : 
12$-7$.- : 
> ke toe : 
17$-7$ 3 
1A A2 69 D1 OO08E 8$ CMPL - THIS_SYSID, 26(SRQ) : 1785 
6F 12 0009 BNEG 15$ ; 
1E  A2 04 Ad B1 00094 CMPW = THIS_SYSID+4, 30(SRQ) ; 
68 iF 00099 BNEQ 15$ ; 
56 10 A2 1 £0 00098 BBS #1, 16(SRQ), 13% 1786 | 
2 DD 000A PUSHL  SRQ > 1788 | 
FCD6 ss 1 FB OA CALLS #1, PROCESS_REMOTE_SERVICES ; | 
54 0 DO 000A MOVL RO. STATUS ; 
4A 11 OOOAA BRB 13§ : 1779 
03 OC A2 D1 OOOAC 9S: CMPL 12(SRQ), #3 > 1798 
7E 12 0008 BNEQ 18% ; 
08 ac 20 Ad bi 000B CMPL  32(SRQ), SJH_N : 1799 
78 12 0008 BNEQ 208 : 
5B D4 00089 CLRL §- NEXT_ACTION : 1802 
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youn 000 ° 12-3 08- 1 oe 33:95:45 JOBCTL.SRCJASYNCHRON.B32; 3 . a 
2 1 5B CF 00184 23$: CASEL NEXT_ACTION, #1, #2 : 1919 
oo2e 0008 oooe “* Qoigs S48: SUond 59+ 4$,- ; 
8$-24$,- : 
9$-24$ : 
01 55 D1 O0O18E 25% CMPL SRO.NP, ") : 1925 
0 if 191 BNEQ 6$ : 
44 AB D 193 MOVL SRO_NS, 68(SRQ_P) : 1926 
9 11 0019 BRB 27$ : 
63 : dO 00139 368: MOVL SRQ_NS, (SRQ_P) 3 1927) 
55 DD O19¢ $: PUSHL $RQ_NP > 1934 
000000006 EF 01 FB 0019 CALLS #1, FLUSH_RECORD : 
56 DD Qi PUSHL  SRQ_N + 1935) 
000000006 EF 01 FB OO1A CALLS #1, DEALLOCATE_RECORD : 
20 11 OAE BRB 33§ + 1919) 
0D 57 0 €5 O18 28$: BBCC #0, PRED_MODIFIED, 31$ + 1941) 
04 11 00184 BRB ; 1942) 
07 57 99 E3 001B6 29S: BBCS #0, PRED_MODIFIED. 31$ : 1951 | 
DD OO1BA 30S: PUSHL RQ_NP 3 1952) 
6A 01 FB 001BC CALLS #1, REWRITE_RECORD : | 
09 11 0018 BRB 32§ : 
55 DD 001C1 31$ PUSHL SRQ_NP ; 1953) 
000000006 EF 01 FB o01¢5 CALLS #1, RELEASE_RECORD : 
5 56 DO OOICA 328 MOVL § SRQ_N, SRQ_NP > 1954) 
53 52 00 901 ¢D MOVL SRQ> §RO_P : 1955 
56 5 b0 9109 33$: MOVL SRQ_NS, SRQ_N + 1962 
FEGF 31 0010 BRW 1$ > 1739) 
06 57 E9 00106 34$: BLBC PRED MODIFIED, 35$ + 1966) 
55 DD 00109 PUSHL 8 + 1967. 
6A 01 FB 001DB CALLS #1, REWRITE_RECORD : 
04 001DE RET : 
55 DD OO1DF 35$ PUSHL SRQ_NP : 1968 | 
000000006 EF 01 +=FB OO1E1 CALLS #1, RELEASE_RECORD : 
04 001E8 RET : 1969 
; Routine Size: 489 bytes, Routine Base: CODE + 0418 
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1370 ! GLOBAL ROUTINE REMOTE_BLOCKING_AST: NOVALUE= 

1326 1 lee 

1975 1! 

1974 1 ! FUNCTIONAL DESCRIPTION: 

1975 1! This routine is the blocking AST routine for the job controller remote 
1278 1! request lock. This routine is entered when another job controller 
1308 : } attempts to obtain this job controller's remote request lock. 
1979 1°! INPUT PARAMETERS: 

1981 : Standard AST routine parameters (not used). 

19 § 1 ! IMPLICIT INPUTS: 

1985 1! NONE 

1984 1! 

1985 1 ! OUTPUT PARAMETERS: 

1986 1! NONE 

1987 1! 

1988 1°! IMPLICIT OUTPUTS: 

1989 1! NONE 

1990 1! 

1991 1 ! ROUTINE VALUE: 

ie 1! NONE 

1993 1! 

1994 1 ! SIDE EFFECTS: 

1995 1! NONE 

1996 1! 

1997 1 !<= 

1998 1 

1999 BEGIN 
2000 LOCAL 
2001 STATUS_1, ' Status return 
$00 2 STATUS_2; ! Status return 

st 
$O08 ' Convert the lock to null mode to allow the process that has requested the 
$008 lock to obtain it. 
$ooe STATUS_1 = SENQW( 

009 EFR=JBCSK_SYNC_EFN 

2010 LKMODE=LCR$K_NCMODE, 

2011 LKSB=REMOTE_REQUEST_LKSB, 

sole FLAGS=LCK$M_ CONVERT); 
sot IF .STATUS_1 THEN STATUS_1 = .REMOTE_REQUEST_LKSBCO]; 

oie ce” »STATUS_1 

2016 SIGNAL (JBC$_COMREMJBC OR STSSK_ERROR, 0, .STATUS_1); 

018 

3h , : Reconvert the lock to exclusive mode to reenable the blocking AST. 
031 STATUS _2 = $ENQ( 

$6 LKMODE=LCKSK_EXMODE, 

5 LKSB=REMOTE_REQUEST_LKSB 

024 FLAGS=LCKSM~CONVERT OR LCKSM_NODLCKBLK, 

025 ASTADR=REMOTE_COMPLETION ° 

626 BLKAST=REMOTE_BLOCKING_AST); 


P 32. 
09 
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IF NOT .STATUS_2 
2 OS SERIES OR STSSK_ERROR, 0, .STATUS_2); 


; Routine Size: 
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Routine Base: 


4 
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SYSSENQW, SYSSENQ 


REMOTE_BLOCKING_AST, Save R2,R3 
LIBSSIGNAL, R3 
MOTE_REQUEST_LKSB, R2 


vvv 


_1, 1$ 

REMOTE -REQUEST_LKSB, STATUS_1 
STATUS-1, 2$ 

STATUS ~1 

=(SP) 

#295954 

#3, L1BSSIGNAL 

REMOTE BLOCKING_AST 
REMOTE COMPLETION. AST 
#1026, -(SP) 

R 

fi 

=(SP) 

#11, SYSSENQ 
STATUS_2, 3$ 
STATUS —2 


Mette 
#3, LIBSSIGNAL 


wo 
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ROUTINE REMOTE _COMPLETION_NONAST: NOVALUE= 


e4 


1 
FUNCTIONAL DESCRIPTION: 
This routine is scheduled to execute by the completion AST routine for 
reconversion of the job controller remote request lock to exclusive 
mode, which is entered when another job controller has obtained and 
released this job controller's remote request lock. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 


EPEEEPEEE COS S OSE SS 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: | 

NONE 


i QUTPUT PARAMETERS: 
; NONE 

i 

i SIDE EFFECTS: | 
NONE 

le 


jelejleleleleleleolelolo) 
PAA 


PRMOPONONON S 2 3 SS 


BNAOVESWN—OOONOUSWN oO 


nm 


SGETTIM(TIMADR=CUR_TIME) ; 


Www 
wn 


Rtatattattotstots 


ae 


FF gg HEU F AOTE a_IF ID NEQ 0 
BEGIN 
Lock the queue file. 
LOCK QUEUE _FILE(); 


COOOCOCCOCOCOCOCOOOoCoCOoOoCoOoOOo 
SS 


Www 
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' Search the incomplete services List to perform actions requested by the 
remote job controller. 


SCAN_INCOMPLETE_SERVICES(ISRV_K_REMOTE); 


RERRERREKK 
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Unlock the queue file. 
UNLOCK_QUEUE_FILE(); 
END; 


NOAA AR SO OO NO UE WIN 0 OD NA UNE WIN 0 ODNOAOU EWN OOD NAUE HN O OONOAUE Wh 


1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 | 
: | 
BEGIN | 
Get the current time. 
| 
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; Routine Size: 45 bytes, 


Asynchronous service management 15 sen- 138% $3: $3: 3 AX-11 B 


Liss-32 V 
JOBCTL.SR RCIA ASYNCH CHRON. 7382; :3 


-EXTRN SYSSGETTIM 


0000 00000 REMOTE pets Mabe NONAST: 
Save nothing 


00000000' Ff 9F 3 BUSHAB C R_T 
000000006 00 g, CALLS “SYSSGETTIM 
00000000° FE 8 OF ist 4 EUE_FAB+2 
000000006 EF 90 FR 0017 CALLS #0, LOCK _QUEUE_FILE 
E 04 3 CLAL = (SP) 
FO87 CF 01 FB 000 CALLS SCAN_INCOMPLETE_SERVICES 
00000000G_ EF 00 re i 2 +. CALLS #0. UNLOCK _QUEUE_F ICE 


Routine Base: CODE + 0¢6C 


Eg Nena meviel nememe NERESHORE GESTS ENGI SRNR 


; } ‘ 83 ! ROUTINE REMOTE_COMPLETION_AST: NOVALUE= 

51 9 1 !¢¢ 

3: 1 3 91 1! 

3; 1 3 1 ! FUNCTIONAL DESCRIPTION: 

3 1 95 1! This routine is the completion AS! routine for reconversion of the job 
; 1061 9% «1! controller remote request lock to exclusive mode. This routine is 
3 1 ¢ 95 1! entered when another job controller has obtained and released this job 
3 1 4] 1! controller's remote request lock. 

3; 1064 097 1! 

; 1065 04 1 ! INPUT PARAMETERS: 

: 1208 y ? : } Standard AST routine parameters (not used). 

; 1969 : 1 } sates | patti 

Het HE 1 | caver ranweros 

3 1972 105 1! NONE 

: 107 196 1! 

3 1074 107 1 ! IMPLICIT OUTPUTS: 

3; 1075 108 1! NONE 

3 1976 109 1! 

3: 107 110 1 =! ROUTINE VALUE: 

3; 1078 111. «1715! NONE 

3; 1079 M6 1! 

; 1080 11 1 ! SIDE EFFECTS: 

; 1081 114 1! NONE 

3 oes 116 1! 

; 108 118 1 !e- 

3 ion 11 1 

; 1085 118 BEGIN 

3 1988 119 

3 H+ $4 iH Check status of the SENQ. 

; 1089 1 IF NOT .REMOTE_REQUEST_LKSB[0) 

: 1090 138 HEN “ 

3 108 : 3 SIGNAL (JBC$_COMREMJBC OR STSSK_ERROR, 0, .REMOTE_REQUEST_LKSBL[0])); 
: 109 1 

: H+ : ; } Schedule the companion routine to execute. 

3 1096 129 SCHEDULE _NONAST (REMOTE_COMPLETION_NONAST); 

: 1097 130 1 END; 


0004 00000 REMOTE _COMPLETION_AST: 
WORD R 


° ave 
$2 00000000" EF 96 0000 MOVAB REMOTE _REQUEST_LKSB, R2 
12 62 £8 0000 BLBS § REMOTE-REQUEST-LKSB, 1$ 
7E 62 3¢ g000c MOVZ2WL REMOTE-REQUEST-LKSB, -(SP) 
E D4 0000F CLR =(SP 
00048412 BF DD 00011 PUSHL #295954 
000000006 00 3 FB 00017 CALLS #3, LIBSSIGNAL 
B2 AF OO1E PUSHAB REMOTE_COMPLETION_NONAST 


ore 
NCHRON.B52;3 
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; Routine Size: 41 bytes, Routine Base: CODE + 0699 


6 
ASYNCHRON Asynchronous service management 1S-se $1984 23:49:14 AX-11 Bliss-32 V4.0- 
vou~008 . 1ea8ep-1984 92:49:32  LSdacte SRE SAS YNCHRON 


ROUTINE ENTER_REMOTE _REQUEST(SYSID): NOVALUE= 


3 


+ 
+> 


FUNCTIONAL DESCRIPTION: 
his routine requests services of another job controller. 


INPUT PARAMETERS: 
SYSID - Address of the system ID of the target. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


SYSID: REF BBLOCK; ! Pointer to system ID 
LKSB: REF BBLOCK, 
RESNAM_DESC: VECTOR} 
RESNAM: BBLOCKE104, 
STATUS; 


' Pointer to LKSB from dynamic memory 
' Descriptor for resource name 

' Buffer for resource name 

' Status return 


ounmusne 


Allocate and initialize the LKSB. 
LKSB = ALLOCATE_MEMORY(); 


Initialize the resource name. 


RESNAMCO,0,32,0] = ‘JBC$': 
COPY SYSID(.SYSID, RESNAM 
RESNAM_DESCCO} = ; 
RESNAM~DESCL1) = RESNAN; 


Enqueuve for the doorbell lock of the remote system. 


STATUS = SENQ( 
LKMODE =LCK$K_EXMODE, 
LKSB=.LKSB, 
RE SNAM=RESNAM_DESC 
FLAGS=LCKSM_SYNCSTS OR LCKSM_NODLCKWT, 


ek at tk kk a a ak ak a ak at at a at a bt at tt th ot Ss Ss SS Ss 3 SS SS SS Ss Ss SS Ss Ss SS Ls 6 Ss os SS 
Se _ ES SY 
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pp SSS esse 


6 
ASYNCHRON Asynchronous service management 18-58 -1984 23:49:14 AX-11 Bliss-32 V4.0- 
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74 Page 39 
3 —- EJOBCTLSROJAS YNCHRON. B32; 3 ve 3 
ASTADR=ENTER_REMOTE_REQUEST_AST, 
ASTPRM=.LKSB); 


Set flag is there is no doorbell lock defined for the remote job controller. 
This indicates that either the remote node is not available (or not in the 
cluster) or the remote job controller does not have the queue file open). 

In either case the remote {98 controller may not respond for a long time or 
possibly never (if an invalid node name were specified, for example). 


] 
| 
| 
| 
| 

Note that if SS$_SYNCH is set, the AST will not be delivered. Consequently, 

lock dequeuing and memory deallocation must be performed here when the AS 

routine is not executed. 


CGOOCCCCOCOCOOOOOOOOOOOMWOo 
dens Wc cme mcesmcasscacs 
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6 

é 

7 LAGSCFLAGS_V_NO_REMOTE_DOORBELL] = FALSE; 

7 F .STATUS EQ SS$_SYNCA 

7 HEN 

7 BEGIN 

7 FLAGSCFLAGS_V_NO_REMOTE DOORBELL] = TRUE; 
7 $DEQ(LKID=.CkKS58(4,0,32,0)); 

7 : 3 DEALLOCATE_MEMORY(.LKSB); 

7 END; 

7 1 

7 1 

° § : Check for service failure. 

8 221 ; IF NOT .STATUS 

K 221 THEN 

8 221 2 SIGNAL (JBC$_COMREMJBC OR STSS$K_ERROR, 0, .STATUS); 
8 221 1 END; 


-EXTRN SYSS$DEQ 
001C 00000 CNTER REROTE eee 


0 Save R2,R3,R4 > 2131 
54 00000000' EF 9E 00002 MOVAB FLAGS, R4 ; 
5E 14 C2 00009 SUBL2 #20, p ; 
000000006 EF 00 FB 9000¢ CALLS #0, ALLOCATE_MEMORY : 2170 
52 50 dO 0001 MOVL R Lk ; 
6E 2443424A BF DO 00016 MOVL §§ #608387658, RESNAM > 2175 
50 04 AC DdO 0001D MOVL  SYSID, RO > 2176 
04 AE 60 9 999 1 MOVL (RO), RESNAM+4 ; 
08 AE 04 AO BO 00025 MOVW 4(ROS, RESNAM+8 ; 
OC AE OA DO 90 A MOVL #10, RESNAM DESC : 2177 
10 AE 6E 9 00 \ MOVAB RESNAM, RESRAM_DESC+4 : 2178 
7E 7C 000 CLRQ = = (SP) > 2189 
3 D4 000 CLRL = = (SP) ; 
5 BD 99 PUSHL LKSB : 
0000Vv cr F 0 PUSHAB ENTER_REMOTE_REQUEST_AST : 
E D4 0003C CLRL = = (SP) ; 
24 AE 9F 0003E USHAB RE SNAM_DESC ; 
7E 0208 BF C 00041 MOVZWL #520, =(SP) ; 
é DD 0046 PUSHL LKSB : 
0 DD 0004 PUSHL : 
E D4 OO04A CLRL. = (SP) : 


WBoseoctape 25:48:14 YAKSIH Olan $2 v4. 0-742,. 
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145 bytes, Routine Base: CODE + 06C2 


; Routine Size: 
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your 000 ° 12-Sep-19 4 33:93: 2 JOBCTL. SRCJASYNCHRON.B 2;3 


ROUTINE ENTER_REMOTE_REQUEST_AST(LKSB): NOVALUE= 
le 
' 
FUNCTIONAL DESCRIPTION: 
This routine is the completion AST routine for obtaining another job 
controller's remote request lock. 


INPUT PARAMETERS: 
LKSB 


- Pointer to LKSB allocated from dynamic memory. 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


MOPOTUROPOPORNOTUNOPOTPoPRoPoTnopofonefry 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


. 
' 
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ais 
LKSB: REF BBLOCK; ! Pointer to lock status block 
Check status of the SENQ. 


if NOT .LKSBLO,0,16,0) 
SIGNAL (JBC$_COMREMJBC OR STSS$K_ERROR, 0, .LKSBL0,0,16,0)); 


: Release the lock to enable the receiving job controller to recover it. 
$DEQ(LKID=.LKSB[4,0,32,0); 


: Deallocate the LKSB. 
DEALLOCATE_MEMORY(.LKSB); 
END; 
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0004 00C00 ENTER_REMOTE ptoyes? fat 
. Save R 
52 04 AC 00 00002 MOVL LKSB, R2 
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; Routine Size: 51 bytes, Routine Base: CODE + 0753 


pa19be 92:32:58 Edact.osne Sas yntnton 082; 3 


4( 
#4, SYSSDEQ 
#1, DEALLOCATE_MEMORY 
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A to Asynchronous service management 15-3 see 0-136 $3: 49:14 
-Sep-1984 :32:32 JOBCTL.SRC ASYNCHRON. 5 2;3 (11). 


Routine Size: 10 bytes, Routine Base: CODE + 0786 


‘eptine ' i 7 } GLOBAL ROUTINE QUEUE_MASTER_AST: NOVALUE= : 
> 1239 : 1 !46 : 
; 1240 9 1/ ‘ 
: 1261 mn e4 emetie -~7 DESCRIPTION: ° 
: 1246 m o% $ routine is the completion AST routine for the queue master lock. ° 
: 124 73 15 It is entered when the queue master job controller fails and releases ° 
3: 12464 7% 15 the Lock. ° 
: 1265 75 1: ° 
3 124 16 1 ! INPUT PARAMETERS: ‘ 
; : : Las : Standard AST routine parameters (not used). ‘ 
3; 1 rk 79 1! IMPLICIT INPUTS: ; 
; 1250 80 1! ONE : 
; 1251 81 1: ‘ 
7 26 B 1 ! OUTPUT PARAMETERS: : 
: 125 83 1! NONE ‘ 
: 1254 8 1! ‘ 
; 1255 85 1 ! IMPLICIT OUTPUTS: ; 
3 1 28 8 1! NONE ‘ 
3 125 87 1: 

3 \$28 88 1 | ROUTINE VALUE: 
: 1259 89 1! NONE 
: 1260 90 1! 

: 1261 $3) 1! SIDE ervey tes 
3% $6 3 1! ONE 
: 126 293 1! 

3 1264 2294 1 IH 

: 1265 $592 1 
; 1266 296 2 BEGIN 
; 1267 2297 A 
; 1268 2298 ! Ensure that at least one job controller holds a timer on the timed job 
: 1269 2299 ! queue. | 
; 1270 Sa0e § } 

; 10) 301 2 AFTER_AST(); 
: 1272 2302 1 END; 
| 
0000 00000 «ENTRY QUEUE_MASTER_AST, Save nothing ; 2267 

00000000G_ EF 00 FB 00002 CALLS #0, AFTER_AST ; 2501 
04 00009 RET : 2302 | 


7 
ASYNCHRON Asynchronous service management 18-sep-19 4 49:14 AX-11 Bliss-32 v4.0 
you~000 1278671984 $3 32:32 JOBCTL.SRC ASYNCHRON. " 2;3 
: 12746 
3 1348 thane 0 ELUDOM 

-EXTRN LIBSSIGNAL 

: PSECT SUMMARY 
; Name Bytes Attributes 
: COMMON 5024 NOVEC, WRT, RD .NOEXE,NOSHR, LCL, REL, OVR,NOPIC,A ALIGN(2) 
; CODE 1936 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
BO ees Ce eS ee Symbols -------- Pages Processing 
; File Total ioaded Percent Mapped Time 
: _$255$0UA28:CSYSLIBILIB.L32;1 18619 53 0 1000 00:01.4 
: Information: 2 
3 Warnings: 0 
; Errors: 
; COMMAND QUALIFIERS 
b4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ASYNCHRON/OBJ=OBJ$:ASYNCHRON MSRC$:ASYNCHRON/UPDATE =(ENHS$:ASYNCHRON) 
; Size: 1886 code + 5074 data bytes 
; Run Time: 34. 
; Elapsed Time: 03:54. 


4040 


; Lenenes/CPU-Ain: 39299 


: Lines/CPU Min: 
; Used: 


; Memory 


380 pages 


; Compication Complete 


T CORPORATION 
PROPRIETARY 
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